home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog64 < prev    next >
Text File  |  1995-06-29  |  826b  |  38 lines
  1.  
  2. xtAppInitialize -class Program
  3.  
  4. xmMainWindow .main managed -scrollBarDisplayPolicy as_needed \
  5.         -scrollingPolicy automatic
  6. # mainWindow .main
  7. xmLabel .main.label managed
  8.  
  9. # top menu bar
  10. xmMenuBar .main.menuBar managed
  11. xmCascadeButton .main.menuBar.file managed \
  12.     -labelString File \
  13.     -mnemonic F
  14.  
  15. # file pulldown
  16. xmPulldownMenu .main.menuBar.fileMenu
  17. xmPushButton .main.menuBar.fileMenu.new managed \
  18.     -labelString "New..." \
  19.     -mnemonic N
  20. xmPushButton .main.menuBar.fileMenu.quit managed \
  21.      -labelString Quit \
  22.     -mnemonic Q
  23. xmSeparator .main.menuBar.fileMenu.bar1 managed
  24. xmPushButton .main.menuBar.fileMenu.quit2 managed \
  25.      -labelString Quit \
  26.     -mnemonic Q
  27. .main.menuBar.file setValues -subMenuId .main.menuBar.fileMenu
  28.  
  29.  
  30.  
  31. .main setValues -workWindow .main.label \
  32.         -menuBar .main.menuBar
  33.  
  34.  
  35. . realizeWidget
  36.  
  37. . mainLoop
  38.